home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / PAL.45174.KEENAN.OCT.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  24 lines
  1. 10  HOME 
  2. 20  PRINT "========================================       COSMIC HANGMAN PROGRAM FIX       ========================================";
  3. 25  PRINT "         BY DANIEL A. KEENAN JR. "
  4. 30  PRINT : PRINT " GOOD DAY, EH? HI, EVERYBODY. RECENTLY,  TO MY EMBARASSMENT, I FOUND AN ERROR IN MY PROGRAM, COSMIC HANGMAN, IN THE      AUGUST 1983 ISSUE OF SOFTDISK. NOW,     WITH EGG ON MY RED FACE, I PRESENT TO   YOU:"
  5. 40  PRINT : FLASH : HTAB 6: PRINT "THE COSMIC HANGMAN PROGRAM FIX": NORMAL 
  6. 50  PRINT : PRINT " TO FIX YOUR COPY OF COSMIC HANGMAN, YOU FIRST NEED YOUR COPY OF THE AUGUST 1983 ISSUE OF SOFTDISK. GOT IT? GREAT! NOW   PLACE THAT DISKETTE INTO THE DISK DRIVE HARVEST SIDE UP. CLOSE THE DRIVE DOOR,  AND..."
  7. 60  PRINT : PRINT : PRINT " PRESS 'F' TO FIX, ANY OTHER KEY TO EXIT";: GET A$: PRINT ""
  8. 70  IF A$ < >"F"  THEN  HOME : VTAB 12: PRINT "              GOOD-BYE!": GOTO 1000
  9. 80  HOME 
  10. 90  FOR T = 1 TO 6
  11. 100  READ A$(T)
  12. 110  NEXT 
  13. 120  PRINT  CHR$(4);"OPEN COSHANG.FIX"
  14. 130  PRINT  CHR$(4);"WRITE COSHANG.FIX"
  15. 140  FOR T = 1 TO 6
  16. 150  PRINT A$(T)
  17. 160  NEXT 
  18. 170  PRINT  CHR$(4);"CLOSE COSHANG.FIX"
  19. 180  PRINT  CHR$(4);"UNLOCK COSMIC HANGMAN"
  20. 190  PRINT  CHR$(4);"EXEC COSHANG.FIX"
  21. 200  DATA    "LOAD COSMIC HANGMAN","500 CX = PDL(0)","770 IF PDL(0) < CX - 30 THEN X = X -1","780 IF PDL(O) > CX + 30 THEN X = X +1","SAVE COSMIC HANGMAN","RUN COSMIC HANGMAN"
  22. 300  END 
  23. 1000  PRINT  CHR$(4);"RUN PAL.MENU"
  24. 1010  END